A = (4, 1)
B = (5, 4)
C = (12, 1)
polígono1, c, a, b = Polygon(A, B, C)
Textopolígono1: "Area " + (Name[A]) + (Name[B]) + (Name[C]) + " = " + polígono1
d = OrthogonalLine(B, b)
D = Intersect(d, b)
e = Line(A, C)
f = OrthogonalLine(B, e)
g = Segment(B, D)